Namespace OpenArchive
    Namespace Document
        Namespace Components
            Friend Class AnnotationComponent
                Inherits Component

                Private Const c_ComponentName As String = "Annotation"
                Friend Sub New()
                    MyBase.SetComponentName(c_ComponentName)
                End Sub

                Friend Overrides Function IsResponsible(ByVal ComponentDataType As Global.System.Type, ByVal Version As Global.System.Version) As Object
                    Return Type.Equals(ComponentDataType, New Components.Data.AnnotationComponentData().GetType())
                End Function
                Public Overrides ReadOnly Property IsSingleInstanceType() As Boolean
                    Get
                        Return False
                    End Get
                End Property
            End Class
        End Namespace
    End Namespace
End Namespace